SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 


**F ILE**1D**ERRSUB790 


EEEEEEEEEE RRRRRRRR RRRRRRRR SSSSSSSS UU UU B8BBBBBBB 77777777 999999 444444 

EEEEEEEEEE RRRRRRRR RRRRRRRR SSSSSSSS UU UU BBBBBBBB 77777777 999999 00000 

EE RR RR RR RR SS UU UU BB BB 77 99 68 00 

EE RR RR RR RR SS UU UU BB BB 77 (99 99 00 4 

EE RR RR RR RR SS UU UU BB BB 77 (99 99 00 0000 

EE RR RR RR RR SS UU UU BB 77: «99 99 00 0000 

EEEEEEEE RRRRRRRR RRRRRRRR SSSSSS UU UU 77 99999999 00 00 00 

EEEEEEEE RRRRRRRR RRRRRRRR SSSSSS UU UU BB8BBBBBB 77 99999999 00 00 00 

EE RR RR RR RR SS UU UU BB 77 99 0000 00 

EE RR_ RR RR RR SS UU UU 6B 8B 77 99 0000 00 

EE RR RR RR RR SS UU UU BB BB 77 99 00 00 cece 
EE RR RR RR RR SS UU UU BB BB 77 99 00 00 eeee 
EEEEEEEEEE RR RR RR RR SSSSSSSS UUUUUUUUUU = BBBBBBBB 77 999999 000000 cove 
EEEEEEEEEE RR RR RR RR SSSSSSSS UUUUUUUUUU = BBBBBBBB 77 999999 000000 cee 
LL IIIT] SSSSSSSS 

LL HII SSSSSSSS 

LL I] SS 

LL I] $$ 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL II SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLELLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII SSSSSSSS 
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EXESINIBOOTADP = INITIALIZE THE BOOT DEVICE ADAPTER 
EXESSHUTDWNADP = SHUTDOWN ANY ADAPTERS DURING BUGCHECK 
EXESSTARTUPADP = STARTUP ANY ADAPTERS 

EXESDUMPCPUREG = DUMP CPU-SPECIFIC IPR'S 

EXESREAD TODR (P) = READ TIME-OF=DAY CLOCK 

EXESWRITE TODR (P) = WRITES TIME-OF=DAY CLOCK 
EXESREGSAVE = ag CPU-SPECIFIC IPR'S 

EXESREGRESTOR ~ RESTORE CPU-SPECIFIC IPR'S 
EXESINIPROCREG = CPU-DEPENDENT INITIALIZATION OF IPR'S 
INISCACHE 

SYSLSCLRSBIA 

EXESTEST_CSR 

ADPLINK = LINK ADAPTER CONTROL BLOCK INTO ADP LIST 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
amPOnaTitne NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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FACILITY: 
EXECUTIVE, LOADABLE SUBROUTINES USED BY POWERFAIL AND BUGCHECK. 
ABSTRACT: 
LOADABLE SUBROUTINES USED BY POWERFAIL AND BUGCHECK. 
AUTHOR: 
N. KRONENBERG, JULY 2, 1979. 
MODIFIED BY: 


v04-003 waC00001 Wayne Cardoza 13- Seg t906 
CRD reporting must not be turned off for VENU 


V04-002 CWH4002 He bbs 08-Sep-1984 
Correct typo in feno 10, use ‘'="" instead of ‘‘="" 


v04-001 FcnOgte Trudy C. Matthews 07-Sep-1984 
For the venus processor: move turning on cathe from routine 
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EXESINIPROCREG to a new routine: INISCACHE. Correct 
order in which registers are saved on the stack in ExESREGSAVE. 


v03-022 TCMO009 Trudy C. Retthoug 30-Jul-1984 
When turning off CRD interrupts n EXESINIPROCREG for VENUS, 
read the processor reg! ster and write it back to preserve 
the state of other bits in the register. 


v03-021 TCMO008 Trudy C. Matthews 23-Jul-1984 
Remove venus code that queries the console for how to set up 
cache and FBOX state. Instead always turn the cache and 
Cyd on hone let the normal error handling code turn it off 
s ba 


v03-020 DWT0214 David W. Thiel 02-May-1984 
Revise MicroVAX | TODR register simulation. 


v03-019 KDM0096 Kathleen D. Morse 27-Mar-1984 
Add missing indirection in MicroVAX I memory CSR 
CRD enabling. 


v03-018 KPLO101 Peter Lieberwirth 4-Mar-1984 
Add extra vectors now defined in SYSLOAVEC. These vectors 
are insurance for v4.x 


v03-017 KPLO100 r Lieberwirth 12-Feb-1984 
Change RPBSB _BOOTNDT. to RPB$SW_BOOTNDT, since BI devices 
will have 16=bit device types. 


V03-016 KDM0092 Kathleen D. Morse 23-Jan-1984 
Correct the number of epunspecific IPRs logged for the 
11/730 and MicroVAX I cpus. 


v03-015 CWH8001 Hobbs 5-Dec-1983 
Add entry tans” &. EXESREADP_TODR and EXESURITEP_ rgee 
}- ,secees payers TODR registér for Nautilus CPU.” 
her proce these amount to duplicate labels a... 
EXESRE D °FODR oa EXESURITE _TODR. 
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V03-014 KTA3088 ey T. Altm 17-Oct-1983 
; Fis bug in 730 seat onal hey EXESINIBOOTADP. 

v03-013 KOM0081 Kathleen D. Morse 13-Sep-1983 
Create Micro-VAX I version. 

v03-012 KDM0055 Kathleen D. Morse 12-Jul-1983 
Move IPR PME into the cpu-dependent register save and 
restore routines. 

v03-011 KDM0049 Kathleen D. Morse 07-Jul-1983 
Add the following processor regissers to the counepec t¥16 
dump IPRs routine: TODR, ACCS. Add usage o 
register: EXESREAD_ 1ODR and EXESWRITE_TODR. 

v03-010 KOM0048 Kathleen D. Morse 07-Jul-1983 


RORORoRORONURUNIN 4 MDDS OOODOOOCO “0 
WNOAL WN 2 OOONOUL WR ODDNAME WN OO 


ee et a to ss 4 9-4 4 1 1 


Add loadable routines for coferenc ing the time-of-day 
clock: EXESREAD_ TODR, EXESWRITE TOD 


Fle,” Cee Y 
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v03-009 1TCM0007 aut Matthews 02-Jun-1983 
Fix routine sysLSCtR BIA so that it calculates the address 
of SB1 adapter Be ster space correctly. 


v03-008 TCM0006 rudy C. Ret theve Feb-1983 
Store enable/disable: state of 11/790 cache and FBOX in 
EXESGB_CPUDATA cell during system initialization. 
v03-007 iS z Mogtheys 11-Jan-1983 
rout in e SYSL 496 SBIA register initialization 
a crt INI ee a aM machine check handler to 
CSR. 0 machine check handler to 


ExESTESI PRS_ SBirs’ back "ee itself to clear error bits. 

Add labelS for two "extra’’ routines, that can be patched 
if extra vectors from SYS to SYSLOA are needed in between 
major releases. Hake yt ny log the SBI registers 
from the SBI the 11/790 system disk is on. 


i kk kk td 
DDRAEDRXAED Sr BB BB BBB EE AANA 
MEANS OD NAME WN O OO NOAU EWN OOONAUES WIN 00 


V03-006 TCM0004 Trudy f Matthews 33-Jan-1983 
4 Add more 11/790-spec fic code. 
0000 v03-005 TCM0003 Trudy C. Matthews 17-Dec-1982 
00 Add conditional assembly switch to the invocations 
st of 11/790-specific definition macros. 
4 v03-004 TCM0002 rudy C. Matthews 15-Dec-1982 
st Added 11/790-specitiz code to EXESINIPROCREG. 
44 v03-003 TCMO001 rudy C. Matthews 13-Dec-1982 
0 ; Added 11/790-specitiz code to power down/power up 
Ba08 routines. 
0900 v03-002 KTA3018 Kerbey T. Altmann 30-0c t-1982 
44 Remove Cl and UBA routines to another module. 
0000 -- 
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R 
AL 


CMPL = R1,, R2 sCHECK FOR INTERVAL EXPIRED 
BGTRU 1 [NOT YET, WAIT SOME MORE 
15$:  MOVL  #MBASM_CR JNIT.- [NOW INIT MBA 
MBASL_CR(RO) : 
05 20$:  RSB : DONE 
INI_UBADP: :INIT UBA 


dO MOVL 


ou 
DP 
f = «SBTTL EXESINIBOOTADP = INITIALIZE THE BOOT DEVICE ADAPTER 
1 : EXESINIBOOTADP = GET THE SYSTEM BOOT DEVICE ADAPTER AND INIT IT. 
6 THIS ROUTINE IS CALLED FROM BUGCHECK BEFORE THE BOOTDRIVER IS CALLED. 
1 : INPUTS: 
1 $88 
6 ; R6 = RPB ADDRESS 
66 + OUTPUTS: 
1 8 : RO-R2 DESTROYED 
9 a: OTHER REGISTERS PRESERVED 
001 4& 
0000 99 i .PSECT SYSLOA,LONG 
99 3 -ENABLE LSB 
09 i EXESINIBOOTADP: : ;SUBROUTINE ENTRY 
91 000 78 CMPB = RPB$B_DEVTYP(R6),- :1S BOOT DEVICE THE CONSOLE 
00 79 TD$R_CONSOLE ‘BLOCK STORAGE DEVICE? 
13 00 0 BEQL = 4 TYES, RETURN 
pd 9007 } MOVL § RPBSL_ADPVIR(R6) ,RO [GET ADDR OF ADAPTER REG SPACE 
008 4 
aB 0008 5 BICW3 #3,RPB$W_BOOTNDT(R6),R2 ;GET GENERIC ADAPTER TYPE 
B1 0011 : CMPW 3=s«R2. #NDTS [CI ADAPTER? 
13 0014 8 BEQL :YES, RETURN 
B1 0016 8 CMPW 3=s«R2, @NDT$_MB [MASS BUS ADAPTER? 
is 0019 89 BNEQ NI_UBADP ;BRANCH IF NOT 
D0 0018 290 MOVL § #MBASM_CR_ABORT,- TABORT ACTIVE TRANSFER 
01D 291 MBASL_CR(RO) : 
0 F 292 
t 
DB 0 r bo FPR = #PR790$_TODR.R1 :GET CURRENT TIME (10 MS UNITS) 
i 2 04 MOVAB 100(R1)7R1 [ALLOW ON ND 
D 0 § 5 10$:  TSTL MBASL_SR(RO) ;WAIT UNTIL TRANSFER 
18 06 BGEG =-«415$ : 1S COMPLETE 
0 B 
aE 
6 : 17 MFPR = #PR790$_TODR,R2 :GET CURRENT TIME 
; 
; 
| ; 
A 6 


~~) 
or— & 
Ssssssssssss 
AA AAA A AAA AGIONONINININONINOND 2 9 9 2 


#UBASM_CR [MIT .= 


UBASL_CR(R INIT UBA 
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EXESINIBOOTADE AN ENITSALI Se THE BOOT DEV 1aasepatone Seizorss LONE VRS Baer l theless | eee Of, 
00010000 8F D3 003 7 258: BITL —FUBASH, CSR URIC,~ 
6 i 8 UBASL _CSR(RO) :WAIT FOR UBA INIT 
F713 O08 535 BEQL $ 2"T0 COMPLETE 
ren 
28 $21} CHECK THE VNB VERSION NUMBER, IF IT EXISTS AND IF IT IS 7 OR GREATER, THEN 
45 $6¢ ; SEE IF ANY UNIBUS MAP REGISTERS TO DISABLE. 
4 ,* 
5234 NG DO bods RaS MOVL —_—-RPBSL_IOVEC(R6) ,R2 :PICK UP THE IOVECTOR FROM RPB 
51 10 Ag Be 0049 S66 MCOMW BQOSW-VERSION(RS).R1_ GET VMB VERSION NUMBER 1°S COMPLEMENTED 
i2 a2 51 B81 0040 CHPU © R1.BQUSW.VERSION+2(R2) CHECK AGAINST CHECK WORD IN VMB 
12 0051 368 BNEQ 4-408 tIF NOT, ASSUME NO VERSION NUMBER 
07 102 BT 0055 $69 CMPW  BOOSW_VERSION(R2),#7  :VERSION 7 OR GREATER OF VMB? 
iF 005 0 BLSSU 0. DON'T BOTH WITH UMR'S 
52 24 M2 0 0059 371 MOVL  BQOSL_UMR_DIS(R2),R2  :GRAB THE NUMBER OF UMR'S TO DISABLE 
13 9050 f BEQL «408 <NONE, LEAVE 
04a0 52 16 78 3s 73 ASHL #22, R2,UBASL_CR(RO)  ;SET THE UMR DISABLE BITS 
064 378; 
8084 $78 § THIS CODE I$ EXECUTED FOR ALL PROCESSORS. ITS DISABLES ANY UNIBUS MAP 
0064 $80 ; REGISTERS ASSOCIATED WITH UNIGUS HEMORY TO PREVENT CONTENTION BETUEEN 
64 $81 ; SBI AND UNIBUS ADDRESSES. 
bose 888 
51 0800 CO DE bone 38a MOVAL  UBASL_MAP(RO) ,R1 SADDRESS OF FIRST REGISTER 
81 D& 0069 385 308:  CLRL- (RID¢ ‘DISABLE 
re 52 FS 0068 386 SOBGTR R2,30$ tLOOP UNTIL ALL DONE 
05 O06E 388 40S: SB {DONE WITH UBA INIT 
O06F 389 "DISABLE LSB 
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11/79 
SSHUTDWNADP = SHUTDOWN ANY ADAPTERS D 18: 
» SBTTL 
. »SBTTL ESSTARTUPADP = STARTUP ANY ADAPTERS 
EXESSHUTDWNADP = SHUTDOWN ANY ADAPTERS DURING BUGCH 
THIS ROUTINE IS CALLED FROM BUGCHECK 
ENSURE THAT ALL ADAPTERS THAT NEED TO BE QUIE 


INPUTS: 
IPL = 31 
OUTPUTS: 
OTHER REGISTERS PRESERVED 
-ENABLE LSB 
EXESSTARTUPADP: : 


PUSHR  #*M<RO.R1,R2,R4> 
MOVAL BeADP. fBL‘UP;R1 
BRB % 


EXESSHUTDWNADP: : 
PUSHR #*M<RO a Ree R4> 


MOVAL B*ADP_TBL_DWN,R1 
Sr<tOrsct AD ADPCS~ - 


ADPSL PrTRKCRED, RS 
20$ 


“ 
w 
= 
ooc 
<<m 
> 
cc 


10$: MOVL 


0$-. 
1) gullammali 


Table of addresses of ets 
3; by adapter type in ADPSW_ADPTYPE. 
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DUDE BB BELEK FWA NIINIPDINPINDINPININININID 2 9 9 MOOOCOOOOOOOOOOOOOOODO 


ADP_TBL_UP: 


er startup 


~$EP=1986 99:25:82 USYSUGA.SRESERRsUa.man:s = "°° 5, 


Hay ttt = SHUTDOWN ANY ADAPTERS DURING BUGCHECK 


* 


EC 
BEFORE THE D 
SENT 


Ang TAKEN TO 


Save a register 
Address of startup table 
Join common code 


Save a register 
Address of shutdown table 


Get pointer to head of adapter List 
Flink onwar 

Branch if at end of List 

Get address of CSR 

Get adapter type code 

Get table entry of adap shutdown 
Call adapter shutdown 

Next adapter 


; Address table start 
; O-MBA 


OVL ADP$L_CSR(R2) ,R4 
MOVZWL ADPSW-ADPTYPE(R2) ,RO 
MOVAL (R1)CROJ,RO 
JSB (RO) CROS 
BRB 10$ 
gos: POPR #*M<RO,R1,R2,R4> 
0$: RSB 
: Table of addresses of adapter shutdown routines ordered 
; by adapter type in ADPSW_ADPTYPE. 
ADP_TBL_OWN: 
LONG $-. 
LONG ih 


Bey 
; ‘- havo 
; Rsved for future expansion 


routines ordered 


; Address table start 
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EXESDUMPCPUREG: : 


SUBROUTINE ENTRY 


s}L0 ENTRIES TO DUMP 
TIMES 
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STATUS REGISTER 
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ADDRESS 


FROM 


AL ADDRESS OF SBI REGISTERS 
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E-OF-DAY REG 
ELERATOR CON 


*e ee 
eererererse§ serererererered sore 
* 


+ ~ + 
” ~-_- oOo - 
= -Oof7-a2a © 
2 oc-Oo~ =< 
@eoam + ~ 
-_ Ft ~~ ewe & 
+ aw ww — A 
SS am ted ty ae ee 
-aOoo -@ &— we f&aew « 
Oo@e@e-aA & Gueeiw ~ 
e-~r-raeegcae * ~aGg~a oOo 
ww ss wR MO WE~AeoO 
SMO = — KFeraca - 
eovueacw ac wozwet 
VOVuUEe]D WV Seo = 
——< 2 < @O—-<oz-@ 
$6 tu > NMVYEYSaw 
PAAHSOD | t setececme 
oooe cov wijjjIj~ 
SOOwWjIM—D RHHHAAGPR i A 
pamntae 4 gure | <«<a<aaa -< 
eoeawoa PO tt tt tO 
QAaQaa< 4@2-<-—< O@@OOOa-@ 
BzBVwVRVOIFSBVFBIOSMMMMNYwaw 
> 
Saecsm jj) jjjj 
aaascse- S>O>>>2>>2>> 
wu OO See eeeeesS 
ZEezzew @OztzzzzEz=z 


OPN TWN OR. DOOM COMM TIN OR. DAO CUP TFWM OR. DAO K— CUM TFNAOTNOR. KOK CUM TNOR. DOOM UM ST 
DW00000000R FRAPPR. 006000000000 00 00 00 COR AAA AAO CUM IMIS PAF FESS SINNIAIAY 


aoo SMOoOoooooo 
233338 a BAaGB00aG 


{qOODuer ver Cece -OCO- 
wr MO COM IVE Cees 
sd ta 
oo wv vovwwreo oO 
ooos™ o staat 
S222 ~—<. La 
on oS ooooo o& 
ow @eococococm 46 
o 
- 
wow 
_ 
wn 


sss 


vu 


COMMAS} 


ow 
& 
oO 
= 


1 
VAX 11/798 ' 
PU-SPECIFIC IPR 
SOBGTR (SP),1 
TSTL (SP)+ 


RS 
-DISABLE LSB 


+s 19386-1968 


4 
4 


AX/VMS Macro V04-00 
SYSLOA.SRCJERRSUB.MAR;5 


19:29:53 


; LOOP 
; POP TEMPORARY FROM STACK 


Page 10 
. (6) 


ALL OTHER REGISTERS PRESERVED 
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ERRSUB790 - ERROR SUBROUTINES FOR VAX 71/ 1798 -SEP=1 :5 AX/VMS Macro V04-00 Page 11 ee 
Foe -000 EXESREAD_TODR (P) = READ TIME=OF-DAY CLO -SEP=1 1382 99: 23; 3 YSYSLOA. SRCJ ERRSUB..MAR: 5 " 

- .SE(TL EXESREAD_TODR (P) = READ TIME-OF-DAY CLOCK 

: READS THE TIME- OF <DAY CLOCK, SINCE IT MAY BE ACCESSED IN 

> DIFFERENT WAYS: N INTERNAL yPROCESSOR REGISTER, AS PART 

: OF THE CONSOLE, a BY NREA DING AN ADDRESS IN I/O SPACE. I 

; MAY ALSO BE IN pir FERENT PORMATS AND HAVE TO BE CONVERTED. 

: INPUTS: 

; NONE. 

; OUTPUTS: 

; RO = TODR VALUE 


EXESREADP_TODR:: 
; NAUTILUS PROCESSOR NEEDS ih 


; SUBROUTINE ENTRY 


Sete Ge te Oe & 
=x 
> 


V 
LUS TODR NCES WILL USE THE EXESREAD_TODR ENTRY 
ABRICATE THE TIME FROM THE QUADWORD SYSTEM TIME. 


; NOT NAUTILUS - FALL THROUGH TO READ_TODR 
EXESREAD_TODR: : ; SUBROUTINE ENTRY 


50 1B 0B MFPR #PR790$_TODR,RO ; TODR IS A PROCESSOR REGISTER. 


05 RSB 
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2 8 8 ool 
kh dd ht dt COD 
Pade leleleleleleleleleloleleleloleololeleol ol ele) ele el ele) ele) ele) ele) el ele) oa) a) 
APDAEOQNMNNN — “OOO GOOCCOCOOCOOOO OOOO OWWWOCococpc9csco II 
PADNIA EN NAN NA UNE WWI 8 OD VOU EWN OOONOUE WN O0OOnN -—— 


PEAEA-LALAPAAAA AAA AAA AAD MA GIIGIVIVIVIVIVIVIVIVIVIVS «= oO 


ERRSUB790 = ERROR SUBROUTINES FOR VAX 11/798 | AX/VMS Macro Vv04-00 Page 1 ER 
v04-002 EXESWRITE_TODR (P nes WRITES TIME-OF -DAY 18-8 “5 sat 7 99:73 ‘83 SYSLOA. SRCJERRSUB.MAR; 5 ° 8) Tal 
114 % as .SBTTL EXESWRITE_TODR (P) = WRITES TIME-OF-DAY CLOCK 
114 g : WRITES THE TIME-OF DAY CLOCK, SINCE IT MAY BE ACCESSED IN 
114 $ : DIFFERENT WAYS: AS AN INTERNAL PROCESSOR REGISTER, AS PART 
114 6 0 : OF THE CON He LE, oR BY READING AN ADDRESS IN I/O SPACE. IT 
116 : MAY ALSO BE iN DIFFERENT FORMA 'S AND HAVE TO BE CONVERTED. 
114 er8 : INPUTS: 
114 679 : RO = CONTAINS VALUE TO BE WRITTEN INTO TODR 
114 orf : OUTPUTS: 
0114 one ; NEW TIME VALUE WRITTEN INTO TODR. 
114 680; ALL REGISTERS PRESERVED. 
114 681 ;- 
114 68¢ 
O14 683 EXESWRITEP_TODR:: : SUBROUTINE ENTRY 
0114 rep : NAUTILUS PROCESSOR NEEDS TO USE A SEPARATE ROUTINE TO ACCESS PHYSICAL TODR 
0114 686 : REGISTER IN THE CONSOLE PROCESSOR FOR TWO REASONS. FIRST, THE PHYSICAL 
0114 68 ; TODR HAS ONE SECOND RESOLUTION INSTEAD OF 10 MSEC RESOLUTION. SECOND 
0114 688 : REFERENCE TO THE PHYSICAL TODR IS A VERY SLOW, NON-INTERRUPTIBLE ACTIONS 
114 689 + NON-PHYSICAL NAUTILUS TODR REFERENCES WILL tose THE EXESWRITE_TODR ENTRY 
114 690 : WHICH WILL FABRICATE A NEW QUADWORD SYSTEM TIME. 
Bite $36 ; NOT NAUTILUS = FALL THROUGH TO WRITE_TODR 
0114 694 EXESWRITE_TODR:: ; SUBROUTINE ENTRY 
0114 695 
0114 696 
114 700 
114 104 
114 705 
114 706 
0114 710 
114 711 
18 50 ODA 116 13 MTPR RO, #PR790$_TODR ; TODR IS A PROCESSOR REGISTER. 
a1? 716 
117 21 
05 0117 722 RSB 


12 
ERRSUB790 = ERROR SUBROUTINES FOR VAX 11/795 =SEP-1984 AX/VMS Macro v04-00 Page 13 ER 
rivet EXESREGSAVE = UNE CPU-SPECIFIC IPR'S -SEP=1 1382 90:73 ‘85 EOYSLOA. Sh SRC SERRSUB.MAR: 5 ve vO 
i ‘ .SBTTL EXESREGSAVE - SAVE CPU-SPECIFIC IPR'S 
11 $ + EXESREGSAVE = CALLED BY POWERFAIL TO SAVE CPU-SPECIFIC IPR'S ON 
i ; THE STACK 
118 729 ; INPUTS: NONE 
11 730 ; 
11 731 ; OUTPUTS: 
11 7 ¢ ; 
1 733; RO DESTROYED 
11 734 ; OTHER GENERAL REGISTERS PRESERVED 
1 , 5; IPR'S SAVED ON THE STACK AS FOLLOWS: 
1 , ? : 11/780: 11/750: 11/730: 11/790:  uVAX I: 
118 7 ? : O(SP) PME PME PME ACCS (none) 
11 740 : 4(SP)  SBIMT TBDR CSWP 
1 741 : 8(SP) CADR PME 
1 24g : 
1 743 :- 
011 744 
011 745 -ENABL LSB 
011 146 
gi 747 EXESREGSAVE:: ;SUBROUTINE ENTRY 
01 BA 0118 749 POPR #*M<RO> SCLEAR RETURN FROM STACK 
011A = 750 
OIA 751 
11A 136 
O11A 75 
O11A 763 
O11A 764 
ia Te 
7E 3D OB OITA 16 MFPR  #PR790$_PME,-(SP) SAVE PERFORMANCE MONITOR ENABLE 
7E 00000042 BF vB 110 10 MFPR = #PR790$~CSWP,-(SP) SAVE CAC HE STA TE 
7E 28 OB 0124 77 MFPR = #PR790$"ACCS,-(SP) [SAVE FBOX STATE 
00000042 BF 04 ODA oi z 7 MTPR #CSWPSM~VAL,#PR790$_CSWP ;SWEEP AND DISABLE CACHE 
60 17 01 : Ae JMP (RO) ;DONE, RETURN 
1 779 
130 185 
0130 784 .DSABL LSB 


ERRSUB790 
v04=002 


01 


66 «=FFFF7FFF 8F 
28 «86 


66 
00000042 er 
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86 
86 
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YBROUT INES FOR V 
STOR = RESTORE 
F .SBTTL 
189 
: INPUTS: 
ae 
93 ; 
798 | 
96 : OUTPUTS: 
£96 OUTPUTS 
£8 : 
494 : 
a : 
08 i: 
os .ENABL 
0? EXESREGRESTOR:: 
9 POPR 
10 
" 
i 
4 
5 
1 BICL 
é MTPR 
BISL 
4 MTPR 
3 MTPR 
38 JMP 
44 .DSABL 


F 12 
EPU-SPECIFIC PR 18-SEP-1986 15:29:99 ESYSLOA. SRETERSUB RAR: 5 


EXESREGRESTOR = RESTORE CPU-SPECIFIC IPR'S 


; EXESREGRESTOR - i BY POWERFAIL RECOVERY TO RESTORE CPU-SPECIFIC 


R'S FROM THE STACK. 


R6 = TOP OF STACK 
STACK SET UP AS DEFINED IN OUTPUTS OF EXESREGSAVE. 


RO DESTROYED 
OTHER GENERAL REGISTERS ey ey 
CPU-SPECIFIC IPR'S RESTORED FROM STACK 
R6 = ADDRESS OF 1ST CPU-INDEPENDENT SAVED IPR 
LSB 

; SUBROUTINE ENTRY 
#*M<RO> :CLEAR RETURN FROM STACK 


#*C<ACCSSM Ge aes ne 38 ONLY WRITE FBOX A aes BIT 

RESTORE FBOX STATE 
(R6)+,#PR790$— _PME 
(RO) ;DONE, RETURN 
LSB 


C INV, (R6) + CAUSE CACHE SWEEP AND INVALIDATE 
(R6)+,#PR790$_CSWP SSWEEP CACHE AND RESTORE ITS STATE 
RESTORE PERFORMANCE MONITOR ENABLE 


Wmo 
wr 


0000'CF42 9 


51 00°CF4 
08 Al 00800000 8F 


34 Al 00001000 8F 
3C Al 000C0000 8F 


D6 5204 


28 00008000 8F 
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$ FOR yan 11/708 1$-$Eb=}982 99:23:33 HENSON. SRESeaksuean:s | 8% (1, 
2 .SBTTL EXESINIPROCREG = CPU-DEPENDENT INITIALIZATION OF IPR'S 
: EXESINIPROCREG = PERFORM INITIALIZATION OF INTERVAL TIMER AND 
; CPU-DEPENDENT REGISTERS. CALLED FROM INIT AND POWERFAIL. 
INPUTS: 
; NONE 
} OUTPUTS: 
5 NONE 
EXESINIPROCREG: : ; INIT PROCESSOR REGISTERS 


: FOR 11/790: 
: Find all SBIAs and initialize their registers. 


: PUSHR #*M<RO,R1,R2,R3> ; PRESERVE REGISTERS 
CLRL = R2 + INDEX INTO ABUS ARRAYS 


CMPB #10790$C_SBIA,W*ABUS_TYPECR2] ; IS THIS AN SBIA? 


; NO, KEEP LOOKING 
MOVL we ABU VACR2],R1 GET 


3 VA OF SBIA REGISTER SPACE 
L. 2 : CLEAR BUFFER ERROR LOCK BIT 
SBIASL_SUMRY(R1) 3 IN R 
MOVL #SBIA$ 


SBIASL_SBIERR(R1) : ISTER 
& FLTLA!'SBIASM_FIE>, -; CLEAR FAULT LATCH 


5$: 


MOVL <SBIASM_FL AND ENABLE 
si SBIASL_SBISTS(R1) ; FAULT INTERRUPTS IN SBI FLT/STS REG 
: AOBLSS #4,R2,5$ ; LOOP THROUGH ALL ABUS ADAPTERS 


902 ; 
308 3; Enable CRD interrupts if requested. 


Due to a hardware bug, we must never run with CRD errors turned off 


BBC S*#EXESV_CROENABL - 
are XESGL FLAGS, 10$ : IFC 
#PR790$_RMERG,R1 ; READ 
BBCC #RERGSY JNHCRD R1,10$ ; CLEA 
90$_ > WRIT 


Sete te tee 


LR, IGNORE CRD ERRORS 
MEMORY ERROR REGISTER 
V 


R CRD INHIBIT (ENABLE INTERRUPTS) 

108 MTPR R1,#PR MERG E VALUE BACK TO THE REGISTER 
3; For VENUS, the cache and Fegx are turned OFF at the be snartag of booting. 
; Cache was turned on by calling the routine INISCACHE; turn the fbox on now. 
3; We wait until now so that we can still boot if ghere are 
3 severe problems with the cache or FBOX; MCHECK790's error handling 
3; mechanisms are in place now. 

MTPR oacts M_ENABLE, - ; TURN ON FLOATING POINT ACCELERATION 

#PR790$_ACC 
POPR #°M<RO,R1,R2,R3> ; RESTORE REGISTERS 


~ 
oO 
Sad 


BBS S*#EXESV_NOCLOCK,- 
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ERRSUB790 = ERROR SUBROUTINES FOR VAX 11/790 =SEP-1984 00:59: AX/VMS Macro V04-00 Pp 1 ER 
04-002 EXESINIPROCRES e EPUCDEPENDENT. (WITIALIZ 1acgEPotORG Seizose LenSVOR.caeseRMoca mar:s | eee (1, vo 
OE 00000000' 9F 130 $ @#EXESGL_FLAGS, 30$ ; BRANCH IF NOT USING CLOCK 
19 FFFFD8FO BF DA \9 9 MTPR #=<10*1000>,S*#PR790$_NICR ; LOAD NEXT INTERVAL REGISTER 
1A 
iA i 
18 800000D1 &F DA 1A 44 MTPR #*X800000D1,S*#PRS$_ICCS ; CLEAR ERROR AND START CLOCK 
5 O1AA 45 308 RSB ; AND RETURN 
1AB 346 
1AB O96 


——_—_—_——————— 


RROR eateries FOR VAX 11/79) ” 197366 =1384 90: 73: $3 pence Oe o V04-00 Page mts 


INISCACH SYSLOA. SRE SERRSUB.MAR: 5 2) 
148 5 coe ~SBTTL INISCACHE 
1A8 5 : INISCACHE = ON 11/790 INIT TIALIZE AND TURN ON CACHE 
AB ; - THIS ROUTINE NOT USED FOR OTHER PROCESSORS 
1AB : THIS ROUTINE IS CALLED TO INITIALIZE AND TURN ON THE CACHE. FOR THE VENUS 
1AB ; PROCESSOR, CACHE IS DISABLED WHILE WE ARE BOOTING. IT IS ONLY ENABLED 
1AB 972 ; AFTER THE VENUS MACHINE CHECK HANDLER IS CONNECTED, SO THAT RECOVERABLE 
AB 3 : CACHE ERRORS DO NOT PREVENT THE SYSTEM FROM BOOTING. 
1AB 975 ; HOWEVER, CACHE MUST BE ENABLED BEFORE THE EXESGL_UBDELAY AND EXESGL_TENUSEC 
1B 06 : CELLS (USED BY DRIVERS WHEN THEY USE THE TIMEDWAITT MACRO) ARE CALIBRATED. 
1AB 978 -_- 
1AB «979: INISCACHE:: 

00000062 8F 0B DA 01 980 MTPR wet WPSM COENA*CSUPSM_ CENA*CSUPSH INV> 
9s 183 4 } R790$_CSw N ON Born HALVES OF CACHE 


12 
cs” jEQhenagnO™TINES For var riot HEARSE USERS URNIGE Sateen," Ub 
-SBTTL SYSLSCLRSBIA 


;++ 
SYSLSCLRSBIA - oe 11/ AR SB RROR REGISTERS 
; ON 117780; 1) 750, 1h 580° AND MICRO-VAX I, THIS IS A NOP 


; THIS ROUTINE IS CALLED TO CLEAR OUT SBIA ERROR BITS AFTER A MACHINE CHECK 
; OCCURS (WHEN MACHINE CHECK IS HANDLED LOCALLY). 


; THIS ROUTINE SHOULD BE CALLED AT IPL 31. 


§ 


OR 
CL 
rie 
5 3H 
ibs 989 
1B 
1B 
1B 
Hest 
1B 95 : INPUTS: 
18 36 : ABUS_ TYPE - AN ARRAY TYPE CODES; IDENTIFIES EACH ADAPTER ON THE 
1B 38 ABUS_VA - AN ARRAY OF ADAPTER SPACE VA'S FOR EACH ADAPTER 
18 ; 99 ON THE ABUS. 
183 1001 : OUTPUTS: 
1B3 1 g : SBI ERROR BITS ARE CLEARED FOR EACH SBIA ON THE ABUS. 
18 ge» ALL REGISTERS PRESERVED. 
183 1 3 YSLSCLRSBIA:: 
06 BB 0183 1 PUSHR #*M<R1,R2> ; SAVE SOME REGISTERS 
52.4 18 8 roe CLRL = R2 : INDEX INTO ABUS ARRAYS 
0000'CF42 01 91 187 19 X cmPe g 97908C_ SBIA,W*ABUS_ TYPECR2] a cbp'fe THIS AN SBIA? 
51 9000" CF 4@ 6 1BF 1 I MOVL  W*ABUS_VACR2],R Set Vv A OF SBIA REGISTER SPACE 
08 Al O08 Al DO O1C5 101 MOVL  SBIASL “SURRYCAT), - ; CLEAR a 
1CA 1014 SBIASL~SUMRY(R1) : IN ERROR SUMMARY REGISTER 
34 Al 34 A1 D0 OICA 1015 MOVL  SBIASL“SBIERR(R1), - ; CLEAR ERRORS 
1cF 1 18 SBIASL-SBIERR(R1) : IN SBI ERROR REGISTER 
3C Al 3C Al DO OICF 101 MOVL  SBIASL™SBISTS(R1), - ; CLEAR ERRORS 
1D4 i318 a SBIASL~SBISTS(R1) : IN SBI FAULT/STATUS REGISTER 
DF 52 04 F2 0104 1020  AOBLSS #4,R2,10$ ; LOOP THROUGH ALL ABUS ADAPTERS 
6 BA 01D8 1021 POPR #*M<R1,R2> + RESTORE REGISTERS 
05 O1DA 1023 RSB + AND RETURN 


C 4 
or” peg Segmorings Fon var ri7ob ASIN SEES URIBE ESDOtaPhan's |" CD 


= 
oe 


~-SBTTL EXESTEST_CSR 

EXESTEST_CSR - TEST A UNIBUS CONTROLLER CSR FOR EXISTENCE 

THIS TEST IS CPU-DEPENDENT. THE FOLLOWING CPU'S ARE SUPPORTED: 
11/788 “TEST CSR one e ERECK RESULT _IN THE yy STATUS ri art A he 


1/7 “ee eettten S REPORTED VIA po deh NE cece AS A 
N-EXISTEN NTA MEMORY REFERENCE. CONNECT A_ TEMPORARY 
MACHINE CHECK HANDLER, TEST THE CSR, AND RESTORE THE 
ORIGINAL MACH E CHECK HANDLER, 
11/23 ~ACTION 3 THE SAME AS FOR THE 11/750. 
11/7 “ACTION IS THE SAME AS FOR THE AS . 
MICRO-VAX I -ACTION IS SAME AS FOR THE 11/750. 
THIS SUBROUTINE SHOULD BE CALLED VIA BRANCH OR JUMP TO SUBROUTINE AT IPL 31. 


INPUTS: 


RO = CSR ADDRESS 
R6 = ADAPTER CONFIGURATION REGISTER ADDRESS 


ee ec ce a ee ee ed ee ee ed ed od ad a a ad ade «= ED 


WWMM HMAMMMMOOOCVOCVVCVTVOVOVVCVOVOCVVOVVTVVIOVTVTVVTVVVVVVTVVTVT90 009090 900T"—O - 


OO COCO OOCCOOCOOCOOCOOCOOCOOCOOCOOCOOOOOOoOOOoOOoO MO 


IDS DS DS DDS DDO DS TTT Ee Be BB BB BEE PWN) 
SWAN SO OO NA UNWIN © ONAN E WIN 2 OS OOD NIA UE WIN SO OD NIAUNE WI Oun 


FPYUWIMW O—-$ GOVT STCCVCVVAWMIWMW@WMW@W@VOI9VD DOI OVW WVDWVIWDWVWDWVDOVIVIWVIDWDOOOWDOOWUOw 


OUTPUTS: 
RO LOW BIT SET/CLEAR FOR EXISTENT/NONEX CSR 
OTHER REGISTERS PRESERVED. 
-ENABL LSB 
EXESTEST_CSR:: ; SUBROUTINE ENTRY 
06 BB : 0 PUSHR #*M<R1,R2> ;SAVE REGISTERS 
1 ; 
1 6 3; This next Line of code is present so that this routine ol ee i 4: to function 
1 067 ; correctly when the UNIBUS adapter is powered down. ng 0 into the UBA 
1 3; Status Register has no effect when addressing the nctenh Reactor register, 
1 ; and clears out any garbage bits in memory when UNIBUS space is re-mapped to 
: f 3 the “black hole’’ page. 
08 A6 00 vO O01 72° MOVL  #0,UBASL_SR(R6) WHEN UBA IS REMAPPED 
51 00000000'GF 00 01 7 OVL G*EXESGL “SCB,R1 GET SCB ADDRESS 
04 Al OD 1 7 PUSHL osm ht 'SAVE CURRENT MCHECK HANDLER ADDR 
(ee Oe 1 75 OVL SP,R ;MARK CURRENT 1a P 
04 Al O4'AF OD 1 MOVAL B*MCHK_790,4(R1) [CONNECT TEMP 11/790 MCHECK HANDLER 
B 1 TST (RO) MPT T AD C 
08 A6 «(08 4 D 1 MOVL UBASL_ gained. UBASL _SR(R6S ; ;CLEAR AND CHECK FOR ERROR 
12 01 4 BNEQ NO sao ;BRANCH 
50 1 QA OFC 5 OK: MOVZBL #SS RORMAL RO 7SET STATUS TO success 
; Ww , $ BRB TEST_DONE :JOIN COMMON EXIT 
1 1108 
' } $3 > TEMPORARY CSR TEST MACHINE CHECK HANDLER FOR THE 11/790: 
1 1108 ° .ALIGN LONG 


ERRSUB790 
v04-002 


“oooodte a? ti 


ES 
E 

0000004A cep BA 

50 3A 5 09 

d8 35 3 E1 

50 4 

04 Al 8EDO 

06 BA 

05 


1 
OUTINES FOR VAX 11/796 


R SEP-1984 : AX/VMS Macro V04-00 Page 20 Ef 
R 18: -§ ety 90: 23:53 YOYSLOA. SRE JERRSUB_MAR; 5 . (ie v 
nie MCHK_790: 

11 MFPR  #PR790$_EHSR,RO :GET ERROR HANDLING STATUS REG 

111 BBCC foe SR $y ate Ei RO, 10$ [CLEAR VMS ENTERED BIT 

111 MTPR 9 :WRITE BACK TO REGISTER 

111 BSBW SYSL SCL SBT [CLEAR SBIA ERROR BITS 

ha MOVL  MCF?90SL SASTAT2(SP), RO :PICK UP MEMORY STATUS REGISTER 

111 MOVL R2,S [CLEAR MACHINE CHECK FRAME OFF STACK 

1 BBC #MSTAT2SV_IOBUFF,RO,OK IF NOT NXM THEN SOMETHING'S THERE 

11 NONE X PEN ; 

11 RO tSET STATUS TO FAILURE 

1190 TEST DONE 

11 4(R1) ;RESTORE SYSTEM MCHECK HANDLER 

1192 TEST DONE a 

119 #°M<R1,R2> sRESTORE REGISTERS 

119% +i sRETURN RESULT TO CALLER 

1195 .DISABLE LSB 


MEER WMS! GPbeu awn ECRESSISNG 90:33 YGUNE.SRESERNOSSOBunes 20" a v 


“MOVAB «= @#< OC SGL_ADPLIST-ADPS$L_LINK>,RO 
3 START OF Ll 


ERRSUB790 - ERROR SUBROUTI 
as003 ADPLINK = LINK A 
119 .SBTTL ADPLINK = LINK ADAPTER CONTROL BLOCK INTO ADP LIST 
: ADPLINK LINKS THE ADAPTER CONTROL BLOCK TO THE END OF THE ADP LIST 
1001 ; INPUT: 
1 ; "R2 = ADDRESS OF NEW ADP 
1 + OUTPUTS: 
1 ; ADP_IS LINK TO THE END OF THE ADPLIST LOCATED BY IOC$GL_ADPLIST. 
! 3 RO,R1 destroyed. 
1 e 
1 ADPLINK 
50 FFFFFFFC'SF 9€ ! 
51 O4A Ag D 8 1211 10$:  MOVL ADPSL_LINK(RO),R1 : FLINK TO F 
5 1 121 BEQL 208 ; END 
50 D 121 MOVL  R1,RO + TRY AGAIN 
11 121 BRB 10$ ; 
04 AO £3 D0 1215 20$:  MOVL R2,ADPSL_LINK(RO) + CHAIN NEW ADP TO END OF LIST 
05 RSB : AND RETU 
121 
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Symbol table - :02 (CSYSLOA.S RCIE ERRSUB.MAR; 5 5) ve 
UBASINITIAL eereeeee =X | 03 
UBASL_ z= 8 4 
UBASL_CSR = 
eae = 
UBASM_CR_INIT = 001 
UBASM_CSR_UBIC = 00010000 
l 
‘ ABS 2 00000000 ( 0.) 0 t 8.4 NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
. BLANK . 00000001 <¢ 1.) 1 ¢ 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SABSS 00000050 ( ge) 8 ( ¢°} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SYSLOA 00000244 ( 580.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
emeense mre ance as seaman esaae +e 
! Per formance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 32 00:00:00.03 00:00:02 .87 
zeanene processing 18 B3: 890-38 B85: 8807 
wd table sort $0:00:01 96 00:00: 6.00 
Pass 2 15 a ET 00:00:28.95 
Symbol table output 1 00:00:00.07 00:00:00.08 
Psect synopsis output 2 00:00:00.02 is So 
Cross-reference output 0 Ses Sh es By Se 
Assembler run totals 777 00:00:16.22 00:01:22.18 


ing working set Limit was 1650 pages. 

02996 bytes (202 pages) of virtual memory were used to buffer the intermediate c 

ake were 90 pages of symbol table grace allocated to hold 1658 non-local and 25° ope symbols. 
1222 source Lines were read in Pass 1 "ain't object records in Pass 2. 


28 pages of virtual memory were used to define macros. 


oo 


Macro library name Macros defined 
5SDUA Bits ey af enh MLB; 1 7 
5SDUA sty 11 

$5388DUAa8 ESyaig STARLET. Bile: :2 é 

votacs ace ‘Libraries) 24 


1777 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 


eee tt + 

' Psect synopsis ! 

PSECT name Allocation PSECT No. Attributes 

MACRO/LIS=LIS$:ERRSUB790/0BJ=0BJ$:ERRSUB790 MSRC$:CPUSW790/UPDATE=(ENHS$: CPUSW790) +MSRC$: ERRSUB/U”DATE=(ENH$: ERRSUB) +EXECML$/LIB+LIBS 
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